	PUSH		1
	CALL	(SB)	main
	POP		1
	HALT

main:	LOADA		0[SB]
	CALL	(1)	get
	CALL	(1)	put
	RETURN	(0)	0
